home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tptc16.zip / TEST2.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  2KB  |  68 lines
  1.  
  2. Program test;
  3.  
  4.   Type
  5.     CompDataRec = Record
  6.                     Opr : Byte; { Operator }
  7.                     Case T : Integer Of
  8.                       0 : (Dat1, Dat2 : Integer);
  9.                       1 : (Str1, Str2 : Byte);
  10.                       2 : (Byt1, Byt2 : Byte);
  11.                       3 : (Int1, Int2 : Integer);
  12.                       4 : (Real1, Real2 : Real);
  13.                       5, 6 : (Bool1, Bool2 : Boolean);
  14.                   End;
  15.  
  16.     DateRec = Record
  17.                 Year : Integer;
  18.                 Month : Integer;
  19.                 Day : Integer;
  20.               End;
  21.  
  22.     BuffTyp = Record
  23.                 Status : Integer;
  24.                 Name1 : Integer;
  25.                 name2 : Integer;
  26.                 name3 : Boolean;
  27.                 name4 : Integer;
  28.                 name5 : Real;
  29.                 name6 : Real;
  30.                 name7 : Array[1..3] Of Integer;
  31.                 Birth : DateRec;
  32.                 LastIn : DateRec;
  33.                 Recall : DateRec;
  34.               End;
  35.  
  36.  
  37.   Procedure ClearBuff(Var Buff : BuffTyp;
  38.                       RecN : Integer);
  39.     Const
  40.       BlankBuf : BuffTyp =
  41.       (Status : 0;
  42.       Name1 : 0;
  43.       name2 : 0;
  44.       name3 : False;
  45.       name4 : 0;
  46.       name5 : 0.0;
  47.       name6 : 0.0;
  48.       name7 : (1, 0, 0);
  49.       Birth : (Year : 0;
  50.       Month : 0;
  51.       Day : 0);
  52.       LastIn : (Year : 0;
  53.       Month : 0;
  54.       Day : 0);
  55.       Recall : (Year : 0;
  56.       Month : 0;
  57.       Day : 0));
  58.     Begin
  59.       {body of clearbuff}
  60.       Buff := BlankBuf;
  61.     End;
  62.  
  63.  
  64.   Begin
  65.     {main block}
  66.   End.
  67.  
  68.